inherited frmDetailBill: TfrmDetailBill
  Left = 338
  Caption = 'frmDetailBill'
  ClientHeight = 534
  OnResize = FormResize
  ExplicitHeight = 605
  PixelsPerInch = 119
  TextHeight = 12
  inherited Bevel1: TBevel
    Visible = True
  end
  inherited Bevel2: TBevel
    Visible = True
  end
  inherited pnlDBCtrl: TPanel
    Height = 436
    ExplicitHeight = 436
    DesignSize = (
      1008
      436)
    object pnlThirdtrade: TPanel [0]
      Left = 4
      Top = 99
      Width = 1145
      Height = 70
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = 16773345
      TabOrder = 9
      Visible = False
      object edtTTtraderid: TcxDBLookupComboBox
        Tag = 58
        Left = 86
        Top = 11
        DataBinding.DataField = 'traderid'
        DataBinding.DataSource = dsThirdtrade
        Properties.ListColumns = <>
        TabOrder = 0
        Width = 130
      end
      object lblTTtraderid: TcxLabel
        Left = 14
        Top = 13
        Caption = #20132#26131#31532#19977#26041
        FocusControl = edtTTtraderid
        Properties.Alignment.Horz = taRightJustify
        AnchorX = 78
      end
      object cxLabel1: TcxLabel
        Left = 234
        Top = 13
        Caption = #37329#39069
        FocusControl = edtTTamount
        Properties.Alignment.Horz = taRightJustify
        AnchorX = 262
      end
      object edtTTamount: TcxDBCalcEdit
        Left = 265
        Top = 11
        DataBinding.DataField = 'amount'
        DataBinding.DataSource = dsThirdtrade
        TabOrder = 3
        Width = 130
      end
      object lblTTremark: TcxLabel
        Left = 234
        Top = 44
        Caption = #22791#27880
        FocusControl = edtTTremark
      end
      object edtTTremark: TcxDBTextEdit
        Left = 265
        Top = 42
        DataBinding.DataField = 'remark'
        DataBinding.DataSource = dsThirdtrade
        TabOrder = 5
        Width = 542
      end
      object edtTTBalanceid: TcxDBLookupComboBox
        Tag = 15
        Left = 472
        Top = 11
        DataBinding.DataField = 'balanceid'
        DataBinding.DataSource = dsThirdtrade
        Properties.ListColumns = <>
        TabOrder = 6
        Width = 130
      end
      object edtTTAccountid: TcxDBLookupComboBox
        Tag = 16
        Left = 677
        Top = 11
        DataBinding.DataField = 'accountid'
        DataBinding.DataSource = dsThirdtrade
        Properties.ListColumns = <>
        TabOrder = 7
        Width = 130
      end
      object lblTTBalanceid: TcxLabel
        Left = 417
        Top = 13
        Caption = #32467#31639#26041#24335
        FocusControl = edtTTBalanceid
        Properties.Alignment.Horz = taRightJustify
        AnchorX = 469
      end
      object lblTTAccountid: TcxLabel
        Left = 622
        Top = 13
        Caption = #32467#31639#24080#25143
        FocusControl = edtTTAccountid
      end
      object lblTTBalanceamt: TcxLabel
        Left = 15
        Top = 44
        Caption = #26412#27425#32467#31639
        FocusControl = edtTTBalanceamt
      end
      object edtTTBalanceamt: TcxDBCalcEdit
        Left = 86
        Top = 42
        DataBinding.DataField = 'balanceamt'
        DataBinding.DataSource = dsThirdtrade
        TabOrder = 11
        Width = 130
      end
    end
    object DtlPageCtrl: TcxPageControl [6]
      Left = 0
      Top = 95
      Width = 1008
      Height = 341
      Anchors = [akLeft, akTop, akRight, akBottom]
      Color = 16773345
      ParentColor = False
      TabOrder = 8
      Properties.ActivePage = tabMain
      Properties.CustomButtons.Buttons = <>
      Properties.Style = 3
      LookAndFeel.Kind = lfOffice11
      ClientRectBottom = 341
      ClientRectRight = 1008
      ClientRectTop = 0
      object tabMain: TcxTabSheet
        Caption = #26126#32454
        Color = 16773345
        ImageIndex = 0
        ParentColor = False
        TabVisible = False
        object DtlGrid: TcxGrid
          Left = 0
          Top = 0
          Width = 1008
          Height = 341
          Hint = #28857#20987#31354#34892#25110#31354#30333#22788#26032#22686#35760#24405
          Align = alClient
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          PopupMenu = pmDetail
          TabOrder = 0
          OnEnter = DtlGridEnter
          OnExit = DtlGridExit
          LookAndFeel.Kind = lfUltraFlat
          LookAndFeel.NativeStyle = False
          object DtlGridDBTableView: TcxGridDBBandedTableView
            OnKeyDown = DtlGridDBTableViewKeyDown
            OnKeyUp = DtlGridDBTableViewKeyUp
            OnMouseDown = DtlGridDBTableViewMouseDown
            Navigator.Buttons.CustomButtons = <>
            OnCustomDrawCell = DtlGridDBTableViewCustomDrawCell
            OnFocusedItemChanged = DtlGridDBTableViewFocusedItemChanged
            OnFocusedRecordChanged = DtlGridDBTableViewFocusedRecordChanged
            DataController.DataModeController.GridMode = True
            DataController.DataSource = dsDetail
            DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoInsertOnNewItemRowFocusing]
            DataController.Summary.DefaultGroupSummaryItems = <>
            DataController.Summary.FooterSummaryItems = <>
            DataController.Summary.SummaryGroups = <>
            NewItemRow.InfoText = 
              #28857' '#20987' '#27492' '#22788' '#26032' '#22686' '#26126' '#32454'                                                 ' +
              '                                                '
            NewItemRow.SeparatorColor = clRed
            OptionsBehavior.AlwaysShowEditor = True
            OptionsBehavior.FocusCellOnTab = True
            OptionsBehavior.FocusFirstCellOnNewRecord = True
            OptionsBehavior.GoToNextCellOnEnter = True
            OptionsBehavior.FocusCellOnCycle = True
            OptionsBehavior.PullFocusing = True
            OptionsData.Appending = True
            OptionsData.CancelOnExit = False
            OptionsSelection.MultiSelect = True
            OptionsSelection.CellMultiSelect = True
            OptionsSelection.InvertSelect = False
            OptionsView.NoDataToDisplayInfoText = #28857#20987#31354#34892#25110#31354#30333#22788#26032#22686#35760#24405
            OptionsView.ShowEditButtons = gsebForFocusedRecord
            OptionsView.ColumnAutoWidth = True
            OptionsView.Footer = True
            OptionsView.FooterMultiSummaries = True
            OptionsView.GroupByBox = False
            OptionsView.GroupFooterMultiSummaries = True
            OptionsView.GroupFooters = gfAlwaysVisible
            OptionsView.HeaderHeight = 35
            OptionsView.Indicator = True
            OptionsView.IndicatorWidth = 25
            OptionsView.BandHeaders = False
            OptionsView.FixedBandSeparatorColor = clBackground
            OptionsView.FixedBandSeparatorWidth = 3
            Preview.MaxLineCount = 0
            Styles.Background = bsBackGroup
            Styles.ContentEven = bsEven
            Styles.ContentOdd = bsOdd
            Styles.Footer = bsTitle
            Styles.Header = bsTitle
            Styles.Indicator = bsBackGroup
            Styles.Selection = bsSelect
            Styles.BandBackground = bsBackGroup
            Styles.BandHeader = bsTitle
            OnColumnHeaderClick = DtlGridDBTableViewColumnHeaderClick
            OnColumnSizeChanged = DtlGridDBTableViewColumnSizeChanged
            OnCustomDrawColumnHeader = DtlGridDBTableViewCustomDrawColumnHeader
            OnCustomDrawIndicatorCell = DtlGridDBTableViewCustomDrawIndicatorCell
            OnLeftPosChanged = DtlGridDBTableViewLeftPosChanged
            Bands = <
              item
                FixedKind = fkLeft
                Options.HoldOwnColumnsOnly = True
                Visible = False
                Width = 200
              end
              item
                Options.HoldOwnColumnsOnly = True
                Visible = False
                Width = 500
              end>
            OnBandSizeChanged = DtlGridDBTableViewBandSizeChanged
            object DtlGridDBTableViewColumn1: TcxGridDBBandedColumn
              PropertiesClassName = 'TcxTimeEditProperties'
              Position.BandIndex = 0
              Position.ColIndex = 0
              Position.RowIndex = 0
            end
          end
          object DtlGridLevel: TcxGridLevel
            Caption = #36135#21697#26126#32454
            GridView = DtlGridDBTableView
          end
        end
      end
    end
    inherited dynlblCreate_by: TcxLabel
      AnchorX = 221
    end
    inherited dynedtCreate_by: TcxDBLookupComboBox
      TabOrder = 12
    end
    inherited dynlblCheck_by: TcxLabel
      AnchorX = 429
    end
    inherited dynedtCheck_by: TcxDBLookupComboBox
      TabOrder = 14
    end
    inherited dynlblFilid: TcxLabel
      AnchorX = 88
    end
    inherited dynedtFilid: TcxDBLookupComboBox
      TabOrder = 16
    end
    inherited dynlblDeptid: TcxLabel
      AnchorX = 301
    end
    inherited dynedtDeptid: TcxDBLookupComboBox
      TabOrder = 18
    end
    inherited dynlblEmpid: TcxLabel
      AnchorX = 505
    end
    inherited dynedtEmpid: TcxDBLookupComboBox
      TabOrder = 20
    end
    inherited dynlblBKind: TcxLabel
      AnchorX = 149
    end
    inherited dynedtBKind: TcxDBLookupComboBox
      TabOrder = 22
    end
  end
  inherited pnlTop: TPanel
    inherited btnPrint: TcxButton
      OnClick = nil
    end
  end
  inherited pnlBottom: TPanel
    Top = 480
    ExplicitTop = 480
    inherited btnCheck: TcxButton
      ParentFont = False
    end
    inherited barBill: TcxProgressBar
      ExplicitWidth = 403
      Width = 403
    end
    inherited btnAppend: TcxButton
      ParentFont = False
    end
  end
  inherited MainDataSource: TDataSource
    Left = 205
    Top = 189
  end
  inherited ActionList1: TActionList
    inherited DataSetFirst: TDataSetFirst [17]
    end
    inherited SearchFind: TSearchFind [18]
    end
    inherited SearchFindNext: TSearchFindNext [19]
    end
    inherited actRelation: TAction [20]
    end
    inherited SearchFindFirst: TSearchFindFirst [21]
    end
    inherited SearchReplace: TSearchReplace [22]
    end
    object actDtlBillMsg: TAction [23]
      Caption = #36873#20013#26126#32454#21333#25454#21327#21516#20219#21153
      OnExecute = muDtlBillMsgClick
    end
    inherited actNext: TAction [24]
    end
    inherited actPriv: TAction [25]
    end
    object actRelBill: TAction
      Caption = #26597#30475#24341#29992#21333#25454
      OnExecute = muRelationBillClick
    end
    object actRelationCred: TAction
      Caption = #35843#38405#20973#35777
      OnExecute = muRelationCredClick
    end
    object actDtlNew: TAction
      Caption = #26032#22686#26126#32454
      OnExecute = muDtlNewClick
    end
    object actDtlCopy: TAction
      Caption = #22797#21046#26126#32454
      OnExecute = muDtlCopyClick
    end
    object actDtlInsert: TAction
      Caption = #25554#20837#26126#32454
      OnExecute = muDtlInsertClick
    end
    object actDtlDelete: TAction
      Caption = #21024#38500#26126#32454
      OnExecute = muDtlDeleteClick
    end
    object actDtlMultiDel: TAction
      Caption = #21024#38500#22810#36873#26126#32454
      OnExecute = muDtlMultiDelClick
    end
    object actTextCopy: TAction
      Caption = #22797#21046#23383#31526#21040#21098#36148#26495
      OnExecute = muTextCopyClick
    end
    object actColTextCopy: TAction
      Caption = #22797#21046#26639#30446#23383#31526#21040#21098#36148#26495
      OnExecute = muColTextCopyClick
    end
    object actDtlAffixClick: TAction
      Caption = #26126#32454#38468#20214
      OnExecute = muDtlAffixClick
    end
  end
  inherited PopupMenu1: TPopupMenu
    Top = 90
    inherited popBrowser: TMenuItem
      OnClick = nil
    end
    inherited numFormProperty: TMenuItem
      OnClick = nil
    end
  end
  inherited pmExec: TPopupMenu
    inherited muDtlMakeBill: TMenuItem
      Visible = True
    end
    object muDtlBillMsg: TMenuItem
      Caption = #22810#36873#26126#32454#21333#25454#21327#21516#20219#21153
      OnClick = muDtlBillMsgClick
    end
  end
  inherited pmRelation: TPopupMenu
    object muRelBill: TMenuItem [1]
      Caption = #26597#30475#24341#29992#21333#25454
      OnClick = muRelationBillClick
    end
  end
  inherited pmPrint: TPopupMenu
    object muGridPart: TMenuItem
      Caption = '-'
    end
    object muPrintGrid: TMenuItem
      Caption = #25171#21360#32593#26684
      ImageIndex = 5
      OnClick = muPrintGridClick
    end
  end
  object dsDetail: TDataSource [14]
    DataSet = cdsDetail
    Left = 416
    Top = 285
  end
  object pmDetail: TPopupMenu [15]
    OnPopup = pmDetailPopup
    Left = 536
    Top = 95
    object muDtlNew: TMenuItem
      Caption = #26032#22686#26126#32454
      OnClick = muDtlNewClick
    end
    object muDtlCopy: TMenuItem
      Caption = #22797#21046#26126#32454
      Visible = False
      OnClick = muDtlCopyClick
    end
    object muDtlInsert: TMenuItem
      Caption = #25554#20837#26126#32454
      OnClick = muDtlInsertClick
    end
    object muDtlDelete: TMenuItem
      Caption = #21024#38500#26126#32454
      OnClick = muDtlDeleteClick
    end
    object muDtlMultiDel: TMenuItem
      Caption = #21024#38500#22810#36873#26126#32454
      OnClick = muDtlMultiDelClick
    end
    object muCopyPart: TMenuItem
      Caption = '-'
    end
    object muTextCopy: TMenuItem
      Caption = #22797#21046#22810#36873#25968#25454#34892#20869#23481#21040#21098#36148#26495
      OnClick = muTextCopyClick
    end
    object muColTextCopy: TMenuItem
      Caption = #22797#21046#21333#20803#26684#20869#23481#21040#21098#36148#26495
      OnClick = muColTextCopyClick
    end
    object muDetailMulti: TMenuItem
      Caption = #34920#26684#22810#36873'-'#12299#34892#22810#36873
      OnClick = muDetailMultiClick
    end
    object muDtlExcel: TMenuItem
      Caption = #34920#26684#23548#20986'Excel'
      OnClick = muDtlExcelClick
    end
    object N13: TMenuItem
      Caption = '-'
    end
    object muFindProduct: TMenuItem
      Caption = #36135#21697#26597#25214
      Visible = False
    end
    object muGoodPic: TMenuItem
      Caption = #36135#21697#22270#29255
      Visible = False
    end
    object N15: TMenuItem
      Caption = '-'
      Visible = False
    end
    object muDtlAffix: TMenuItem
      Caption = #26126#32454#38468#20214
      OnClick = muDtlAffixClick
    end
    object muRelationBill: TMenuItem
      Caption = #26597#30475#24341#29992#21333#25454
      OnClick = muRelationBillClick
    end
    object muPartGroup: TMenuItem
      Caption = '-'
    end
    object muGroupSort: TMenuItem
      Caption = #20998#32452#25490#24207
      OnClick = muGroupSortClick
    end
    object muHandGroup: TMenuItem
      Caption = #25163#24037#20998#32452
      OnClick = muHandGroupClick
    end
    object muGridFilter: TMenuItem
      Caption = #21015#34920#36807#28388#25490#24207
      OnClick = muGridFilterClick
    end
    object muExpGroup: TMenuItem
      Caption = #20840#37096#23637#24320
      OnClick = muExpGroupClick
    end
    object muColGroup: TMenuItem
      Tag = 1
      Caption = #20840#37096#25240#21472
      OnClick = muExpGroupClick
    end
  end
  inherited cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
    object bsSelect: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clActiveCaption
    end
    object bsNormal: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = clWindow
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clDefault
    end
    object bsOdd: TcxStyle
      AssignedValues = [svColor]
      Color = clWindow
    end
    object bsEven: TcxStyle
      AssignedValues = [svColor]
      Color = clWindow
    end
    object bsBackGroup: TcxStyle
      AssignedValues = [svColor]
      Color = 16773345
    end
    object bsTitle: TcxStyle
      AssignedValues = [svColor]
      Color = clGradientActiveCaption
    end
  end
  inherited cdsMaster: TClientDataSet
    Top = 189
  end
  object dspDetail: TDataSetProvider [22]
    DataSet = qryDetail
    UpdateMode = upWhereKeyOnly
    BeforeUpdateRecord = dspDetailBeforeUpdateRecord
    Left = 296
    Top = 285
  end
  object cdsDetail: TClientDataSet [23]
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDetail'
    BeforePost = cdsDetailBeforePost
    BeforeCancel = cdsDetailBeforeCancel
    Left = 356
    Top = 285
  end
  object qryDetail: TUniQuery [30]
    Connection = MainDM.UniConn
    UniDirectional = True
    CachedUpdates = True
    Options.PrepareUpdateSQL = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Options.AutoPrepare = True
    Left = 244
    Top = 289
  end
  object qryThirdtrade: TUniQuery [33]
    SQLInsert.Strings = (
      'INSERT INTO tb_thirdtrade'
      
        '  (btype, bid, traderid, amount, relationamt, balanceamt, remark' +
        ', balanceid, accountid, dcamount, dcrelationamt, dcbalanceamt, m' +
        'oneyid, exchrate)'
      'VALUES'
      
        '  (:btype, :bid, :traderid, :amount, :relationamt, :balanceamt, ' +
        ':remark, :balanceid, :accountid, :dcamount, :dcrelationamt, :dcb' +
        'alanceamt, :moneyid, :exchrate)')
    SQLDelete.Strings = (
      'DELETE FROM tb_thirdtrade'
      'WHERE'
      '  btype = :Old_btype AND bid = :Old_bid')
    SQLUpdate.Strings = (
      'UPDATE tb_thirdtrade'
      'SET'
      
        '  btype = :btype, bid = :bid, traderid = :traderid, amount = :am' +
        'ount, relationamt = :relationamt, balanceamt = :balanceamt, rema' +
        'rk = :remark, '
      
        '  balanceid = :balanceid, accountid = :accountid, dcamount = :dc' +
        'amount, dcrelationamt = :dcrelationamt, dcbalanceamt = :dcbalanc' +
        'eamt,'
      '  moneyid = :moneyid, exchrate = :exchrate'
      'WHERE'
      '  btype = :Old_btype AND bid = :Old_bid')
    SQLLock.Strings = (
      'SELECT * FROM tb_thirdtrade'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  btype = :Old_btype AND bid = :Old_bid')
    SQLRefresh.Strings = (
      'SELECT * FROM tb_thirdtrade'
      'WHERE'
      '  btype = :Old_btype AND bid = :Old_bid')
    SQL.Strings = (
      'select * from tb_thirdtrade where btype=:btype and bid=:bid')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 248
    Top = 401
    ParamData = <
      item
        DataType = ftInteger
        Name = 'btype'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'bid'
        ParamType = ptInput
        Value = nil
      end>
  end
  object dsThirdtrade: TDataSource [34]
    DataSet = qryThirdtrade
    Left = 320
    Top = 401
  end
  inherited pmAutoSave: TPopupMenu
    inherited muAutoSavebtn: TMenuItem
      OnClick = nil
    end
    inherited muLoadAutoSavebtn: TMenuItem
      OnClick = nil
    end
  end
end
